home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_221_Stock Price Multiplier.bin < prev    next >
Text File  |  1995-11-23  |  2KB  |  67 lines
  1. ItemType: WIND
  2. Rect: 171,265,451,485
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Stock Price Multiplier
  8. Script: if objValue="Open" then ┬  wsSet wdID,"Text","Selection", "0,20"┬end if
  9. Params: i0_TopLeft┬i5_Text
  10. Result: i5_Text
  11.  
  12. ItemType: PUSH
  13. Rect: 188,140,260,160
  14. Name: OK
  15. DefaultItem: TRUE
  16. AutoClose: TRUE
  17.  
  18. ItemType: PUSH
  19. Rect: 74,141,154,161
  20. Name: Cancel
  21. CancelItem: TRUE
  22. AutoClose: TRUE
  23.  
  24. ItemType: TEXT
  25. Rect: 47,3,273,68
  26. TextFont: Geneva
  27. TextSize: 10
  28. Name: Note
  29. Text: Enter a number to act as a factor that, when multiplied by a stock price in the ╥standard╙ format stored in the stack, will convert it to ╥display╙ format in the stock price entry dialog boxes. The usual entry is 1.00.
  30.  
  31. ItemType: ICON
  32. Rect: 6,4,38,36
  33. Name: Color Note
  34.  
  35. ItemType: TEXT
  36. Rect: 74,78,144,100
  37. AutoSize: FALSE
  38. Name: Text
  39. LockText: FALSE
  40. TextAlign: Right
  41. Text: 1.00
  42.  
  43. ItemType: TEXT
  44. Rect: 11,178,267,217
  45. TextFont: Geneva
  46. TextSize: 10
  47. Name: note2
  48. Text: For example, if you usually enter the price in cents, you would use ╥100╙ as the multiplier to convert the usual dollar format to cents in the price dialog.
  49.  
  50. ItemType: LINE
  51. Rect: 12,171,266,172
  52. Pen: Gray
  53.  
  54. ItemType: PUSH
  55. Rect: 153,81,193,98
  56. TextFont: Geneva
  57. TextSize: 10
  58. AutoSize: FALSE
  59. Name: Demo
  60. Script: get wsGet(wdID,"Text","Text")┬put it into mult┬put "21.750" into orig┬set numberformat to "0.000"┬put mult*orig into newPrice┬put "A stored ╥standard╙ price of 21.750 will be displayed as "&newPrice&" in the stock price entry dialog." into temp┬wsSet wdID,"DemoText","Text",temp┬
  61.  
  62. ItemType: TEXT
  63. Rect: 10,104,269,128
  64. TextFont: Geneva
  65. TextSize: 9
  66. AutoSize: FALSE
  67. Name: DemoText